* net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file

modification time.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index a04f891b3f5641364cb4497f832e5fbef8f5459d..a07b5df0a1e5eb7ecbe93314f95e74b0a03ad750 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -727,6 +727,10 @@ is no information where to trace the message.")
               (signal (car err) (cdr err)))
           (delete-file tmpfile)))))
 
+    ;; Set file modification time.
+    (when (or (eq visit t) (stringp visit))
+      (set-visited-file-modtime (nth 5 (file-attributes filename))))
+
     ;; The end.
     (when (or (eq visit t) (null visit) (stringp visit))
       (tramp-message v 0 "Wrote %s" filename))